home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8177 < prev    next >
Text File  |  1993-10-08  |  1KB  |  104 lines
  1. %%BeginFile: adobe_psp_level2_basicimage
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /$j 9 dict dup
  4. begin
  5. /ImageType 1 def
  6. /MultipleDataSource false def
  7. end
  8. def
  9. /im_save Z
  10. /setupimageproc Z
  11. /polarity Z
  12. /smoothflag Z
  13. /bpc Z
  14. /ih Z
  15. /iw Z
  16. /datatype Z
  17. /:f
  18. {
  19. /im_save save store
  20. /datatype xs
  21. datatype 0 lt datatype 4 gt or{
  22. (error, datatype out of range)print flush stop
  23. }if
  24. /setupimageproc{
  25. {
  26. currentfile
  27. }
  28. {
  29. currentfile 0(%ADOeod)/SubFileDecode filter/ASCIIHexDecode filter
  30. }
  31. {
  32. currentfile/RunLengthDecode filter
  33. }
  34. {
  35. currentfile/ASCII85Decode filter/RunLengthDecode filter
  36. }
  37. {
  38. currentfile/ASCII85Decode filter
  39. }
  40. }datatype get store
  41. {
  42. [1 0]
  43. }{
  44. [0 1]
  45. }ifelse
  46. /polarity xs
  47. /smoothflag xs
  48. :T
  49. scale
  50. pop
  51. /bpc xs
  52. /ih xs
  53. /iw xs
  54. $c setcolorspace
  55. }bd
  56. /:j{im_save restore}bd
  57. /:g
  58. {
  59. 1 G
  60. 0 0 1 1 rF
  61. 0 G
  62. $j dup begin
  63. /Width iw def
  64. /Height ih def
  65. /Decode polarity def
  66. /ImageMatrix[iw 0 0 ih 0 0]def
  67. /DataSource setupimageproc def
  68. /BitsPerComponent 1 def
  69. /Interpolate smoothflag def
  70. end
  71. imagemask
  72. }bd
  73. /:h
  74. {
  75. :F
  76. 0 0 1 1 rF
  77. :F
  78. $j dup begin
  79. /Width iw def
  80. /Height ih def
  81. /Decode polarity def
  82. /ImageMatrix[iw 0 0 ih 0 0]def
  83. /DataSource setupimageproc def
  84. /BitsPerComponent 1 def
  85. /Interpolate smoothflag def
  86. end
  87. imagemask
  88. }bd
  89. /:i
  90. {
  91. :F
  92. $j dup begin
  93. /Width iw def
  94. /Height ih def
  95. /Decode polarity def
  96. /ImageMatrix[iw 0 0 ih 0 0]def
  97. /DataSource setupimageproc def
  98. /BitsPerComponent 1 def
  99. /Interpolate smoothflag def
  100. end
  101. imagemask
  102. }bd
  103. %%EndFile
  104.